home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 88
/
088.d81
/
basics 88
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
59 lines
10 poke53281,0:poke53280,0
17 :
18 rem setup
19 :
20 poke56,56:poke55,0:clr
30 sys57812"gorgonfont",8,0:poke780,0:poke781,0:poke782,56:sys65493
35 sys57812"copymem.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
40 sys57812"gorgons",8,0:poke780,0:poke781,0:poke782,64:sys65493
50 poke53272,31
97 :
98 rem draw screen
99 :
100 print"[147][156]"tab(14)"[176][192][192][192][192][192][192][192][192][192][192][192][174]
110 [129]i[178]0[164]6:[153][163]14)"(NULL) (NULL)":[130]
120 [153][163]14)"/tantantantantantantantantantantanexp
130 r=6:c=15:co=15:gosub900
140 print"[159] [207]kay, okay! [211]o [201]'ll never work for"
150 print" [196]isney! [200]owever, this shows that with
160 [153]" 'font graphics' and len(NULL)(NULL)(NULL)(NULL)val(NULL), simple
170 print" animation is possible.
180 [153]" (NULL)ress +open or -open to adjust the speed.
190 print" [208]ress [209][159] to return to [204][207][193][196][211][212][193][210].
195 [151]650,128:d[178]50
197 :
198 [143] animation loop
199 :
200 [129]i[178]0[164]4:[129]t[178]0[164]d:[130]
210 [158]49152,16384[170]i[172]616,15360,616
220 [130]
227 :
228 [143] get loop
229 :
230 [161]a$:[139]a$[178]""[167]200
240 [139]a$[178]"+"[167]d[178]d[171]5:[139]d[179]1[167]d[178]0
250 [139]a$[178]"-"[167]d[178]d[170]5:[139]d[177]100[167]d[178]100
260 [139]a$[178]"q"[167]300
270 [137]200
297 :
298 [143] to loadstar
299 :
300 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
310 [139]er[179][177]63[167][153]"loadopen":[151]650,0:[151]53272,23:[128]
320 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
330 [153]"run"
340 [151]631,13:[151]632,13:[151]198,2:[128]
897 :
898 : [153] image subroutine
899 :
900 [151]214,r[171]1:[153]:[151]646,co
910 [153][163]c)"@abcdefghij"
920 [153][163]c)"klmnopqrstu"
930 [153][163]c)"vwxyz[\]^_ "
940 [153][163]c)"!"[199](34)"#$%&'()*+"
950 [153][163]c)",-./0123456"
960 [153][163]c)"789:;<=>?tanatn"
970 [153][163]c)"peeklenstr$valascchr$left$right$mid$(NULL)(NULL)"
980 [142]
10000 [159]15,8,15,"i0":[152]15,"s0:basics 88":[160]15:[148]"basics 88",8:[128]